home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 83 / 64er_Magazin_Sonderheft_83_19xx_Markt__Technik_de_Side_B.d64 / format 36-41 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  71 lines
  1. 10000 :
  2. 10001 :
  3. 10002 rem  ***************************
  4. 10003 rem  *** format spur 36 - 41 ***
  5. 10004 rem  ***************************
  6. 10005 :
  7. 10006 :
  8. 10007 :
  9. 10008 rem *** resevieren puffer 2
  10. 10009 di$="":by$=""
  11. 10110 open15,8,15,"i":close15:open3,8,3,"#2"
  12. 10120 get#3,a$:ifasc(a$+chr$(0))<>2thenprint"bitte floppyrest":end
  13. 10200 rem
  14. 10210 rem *** lesen maschinenprogramme
  15. 10220 rem     fuer floppy in zwischensp.
  16. 10230 :
  17. 10240 dimtf%(256)
  18. 10250 open1,8,0,"fp.formater.obj"
  19. 10260 get#1,lb$
  20. 10270 get#1,hb$
  21. 10280 fori=0to256
  22. 10290 get#1,y$:ify$=""theny$=chr$(0)
  23. 10300 y=asc(y$)
  24. 10310 tf%(i)=y
  25. 10320 ifst=64theni=256
  26. 10330 nexti
  27. 10340 close1
  28. 10500 print"[147] diskette einlegen und <return>"
  29. 10510 gett$:ift$<>chr$(13)then10510
  30. 10612 :
  31. 10613 rem *** id-kennung lesen
  32. 10614 open15,8,15
  33. 10620 open2,8,2,"#"
  34. 10630 print#15,"u1";2;0;18;0
  35. 10640 print#15,"b-p";2;162
  36. 10645 fori=0to1:get#2,by$:di$=di$+by$:next
  37. 10670 close2
  38. 10671 :
  39. 10672 rem *** laden formatierungsroutine
  40. 10673 rem     in floppypuffer
  41. 10674 :
  42. 10680 mw$="m"+"-"+"w"
  43. 10690 fori=1536to1681
  44. 10700 x=tf%(i-1536)
  45. 10710 hb=int(i/256):lb=i-(hb*256)
  46. 10720 print#15,mw$+chr$(lb)chr$(hb)chr$(1)chr$(x)
  47. 10730 nexti
  48. 10733 :
  49. 10734 :
  50. 10735 rem *** laden sprungadresse in
  51. 10736 rem     floppypuffer
  52. 10737 fori=36to41:print"spur";i;"formatieren..."
  53. 10740 print#15,mw$+chr$(0)chr$(5)chr$(3)chr$(76)chr$(41)chr$(6)
  54. 10743 :
  55. 10744 :
  56. 10745 rem *** uebergeben disk-id in
  57. 10746 rem     floppypuffer
  58. 10747 :
  59. 10750 i1$=mid$(di$,1,1):i2$=mid$(di$,2,1):i1=asc(i1$):i2=asc(i2$)
  60. 10760 print#15,mw$+chr$(3)+chr$(5)+chr$(1)+chr$(i1)
  61. 10770 print#15,mw$+chr$(4)+chr$(5)+chr$(1)+chr$(i2)
  62. 10773 :
  63. 10774 :
  64. 10775 rem *** formatieren von spur 36
  65. 10776 rem     bis spur 41
  66. 10777 :
  67. 10780 u3$="u"+"3"+" 3 0"+str$(i)+" 00"
  68. 10790 print#15,u3$:input#15,f,ft$,t,s:iffthenprintu3$;f;ft$;t;s
  69. 10792 next
  70. 11000 close15:close3
  71.